home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / HyperCard Related / APDA HyperCard Toolkits / HyperCard Video Toolkit 2.0 / HVT #1 / Notebook / background_3108.txt < prev    next >
Encoding:
Text File  |  1995-02-07  |  6.7 KB  |  321 lines
  1. -- background: 3108 from stack: in
  2. -- bmap block id: 3969
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   get the number of this card
  9.   put "Page"&&it-1 into field cardnumber
  10.   put " /" & the number of cards - 1 into field numcards
  11. end opencard
  12.  
  13.  
  14. -- part 82 (field)
  15. -- low flags: 02
  16. -- high flags: 4000
  17. -- rect: left=16 top=74 right=90 bottom=230
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 2
  22. -- text size: 12
  23. -- style flags: 256
  24. -- line height: 13
  25. -- part name: name1
  26.  
  27.  
  28. -- part 88 (field)
  29. -- low flags: 02
  30. -- high flags: 0000
  31. -- rect: left=16 top=89 right=145 bottom=233
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 10
  37. -- style flags: 0
  38. -- line height: 13
  39. -- part name: address1
  40.  
  41.  
  42. -- part 14 (field)
  43. -- low flags: 02
  44. -- high flags: 4000
  45. -- rect: left=15 top=154 right=170 bottom=232
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 0
  49. -- font id: 2
  50. -- text size: 12
  51. -- style flags: 256
  52. -- line height: 13
  53. -- part name: name2
  54.  
  55.  
  56. -- part 89 (field)
  57. -- low flags: 02
  58. -- high flags: 0000
  59. -- rect: left=15 top=170 right=226 bottom=234
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 3
  64. -- text size: 10
  65. -- style flags: 0
  66. -- line height: 13
  67. -- part name: address2
  68.  
  69.  
  70. -- part 15 (field)
  71. -- low flags: 02
  72. -- high flags: 4000
  73. -- rect: left=15 top=233 right=249 bottom=233
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 0
  77. -- font id: 2
  78. -- text size: 12
  79. -- style flags: 256
  80. -- line height: 13
  81. -- part name: name3
  82.  
  83.  
  84. -- part 91 (field)
  85. -- low flags: 02
  86. -- high flags: 0000
  87. -- rect: left=16 top=250 right=307 bottom=233
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 10
  93. -- style flags: 0
  94. -- line height: 13
  95. -- part name: address3
  96.  
  97.  
  98. -- part 45 (field)
  99. -- low flags: 00
  100. -- high flags: 4000
  101. -- rect: left=278 top=80 right=287 bottom=494
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 3
  106. -- text size: 10
  107. -- style flags: 0
  108. -- line height: 13
  109. -- part name: notes
  110.  
  111.  
  112. -- part 76 (button)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=211 top=304 right=332 bottom=248
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 1014 / 1014
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Prev
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   visual effect wipe right
  127.   go to previous card
  128. end mouseUp
  129.  
  130.  
  131. -- part 77 (button)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=263 top=305 right=332 bottom=300
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 1013 / 1013
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Next
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   visual effect wipe left
  146.   go to next card
  147. end mouseUp
  148.  
  149.  
  150. -- part 79 (field)
  151. -- low flags: 02
  152. -- high flags: 0000
  153. -- rect: left=12 top=46 right=63 bottom=236
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 65535
  157. -- font id: 3
  158. -- text size: 12
  159. -- style flags: 16896
  160. -- line height: 16
  161. -- part name: subgroup
  162.  
  163.  
  164. -- part 80 (field)
  165. -- low flags: 00
  166. -- high flags: 0000
  167. -- rect: left=126 top=316 right=335 bottom=189
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 65535
  171. -- font id: 3
  172. -- text size: 10
  173. -- style flags: 0
  174. -- line height: 13
  175. -- part name: cardnumber
  176.  
  177.  
  178. -- part 81 (field)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=178 top=316 right=334 bottom=214
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 0
  185. -- font id: 3
  186. -- text size: 10
  187. -- style flags: 0
  188. -- line height: 13
  189. -- part name: numcards
  190.  
  191.  
  192. -- part 83 (field)
  193. -- low flags: 02
  194. -- high flags: 0000
  195. -- rect: left=10 top=28 right=49 bottom=243
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 0
  199. -- font id: 3
  200. -- text size: 14
  201. -- style flags: 1280
  202. -- line height: 18
  203. -- part name: group
  204.  
  205.  
  206. -- part 84 (button)
  207. -- low flags: 00
  208. -- high flags: 0000
  209. -- rect: left=271 top=35 right=68 bottom=339
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Index
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   visual effect venetian blinds
  221.   go to card "index"
  222. end mouseUp
  223.  
  224.  
  225.  
  226.  
  227. -- part 87 (button)
  228. -- low flags: 00
  229. -- high flags: 8003
  230. -- rect: left=14 top=315 right=333 bottom=74
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 3
  235. -- text size: 9
  236. -- style flags: 0
  237. -- line height: 12
  238. -- part name: New card
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   put field group into grp
  242.   put field subgroup into subgrp
  243.   answer "Same categories as this card?" with "Yes" or "No" or "Cancel"
  244.   if it is "cancel" then exit mouseUp
  245.   domenu "new card"
  246.   if it is "yes" then
  247.     put grp into field group
  248.     put subgrp into field subgroup
  249.   end if
  250.  
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 99 (button)
  256. -- low flags: 00
  257. -- high flags: 8003
  258. -- rect: left=78 top=315 right=333 bottom=113
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 3
  263. -- text size: 9
  264. -- style flags: 0
  265. -- line height: 12
  266. -- part name: Find
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   global lastFind
  270.   ask "What are you looking for?" with lastFind
  271.   set lockScreen to true
  272.   put the loc of msg into locOfMsg
  273.   set the loc of msg to 6000,6000 -- so it wont be seen on screen
  274.   if it is not empty then find it
  275.   put "find" && quote & it  & quote
  276.   put it into lastFind
  277.   hide msg
  278.   set the loc of msg to locOfMsg
  279. end mouseUp
  280.  
  281.  
  282.  
  283. -- part 101 (button)
  284. -- low flags: 00
  285. -- high flags: 0000
  286. -- rect: left=421 top=288 right=337 bottom=453
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 11045 / 11045
  289. -- text alignment: 1
  290. -- font id: 3
  291. -- text size: 12
  292. -- style flags: 0
  293. -- line height: 16
  294. -- part name: Home
  295. ----- HyperTalk script -----
  296. on mouseUp
  297.   visual effect iris close
  298.   go "home"
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 102 (button)
  304. -- low flags: 00
  305. -- high flags: 0000
  306. -- rect: left=453 top=288 right=337 bottom=498
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 6720 / 6720
  309. -- text alignment: 1
  310. -- font id: 3
  311. -- text size: 9
  312. -- style flags: 0
  313. -- line height: 12
  314. -- part name: Return
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   visual effect iris close
  318.   pop card
  319. end mouseUp
  320.  
  321.